home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a06.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
4KB
|
111 lines
1000 'A06.BAS**************************************************T.K.MOSAKU
1010 SCREEN@ 0:WINDOW(0,0)-(640,480):CLS
1020 SX=50:SY=50:XS=590:YS=430:J=4:XSX=(XS-SX)/2+SX
1030 '
1040 GOSUB *WAKU
1050 A$="☆☆☆ LINE命令で直線を書き重ねています。 ☆☆☆"
1060 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
1070 FOR I=1 TO 124
1080 LINE (SX+3*J,YS-3*J)-(SX+3*J+I*4,SY+3*J),PSET,(I-2)/3 MOD 7+1
1090 LINE (XS-3*J,SY+3*J)-(XS-3*J-I*4,YS-3*J),PSET,(I-2)/3 MOD 7+1
1100 S=S+1
1110 NEXT
1120 T2=TIME:T=T2-T1:S=2*S
1130 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒 ";"描いた直線--";S;"本"
1140 WAIT 100:CLS 4
1150 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
1160 FOR I=1 TO 124
1170 LINE (SX+3*J,YS-3*J)-(SX+3*J+I*4,SY+3*J),PSET,0
1180 LINE (XS-3*J,SY+3*J)-(XS-3*J-I*4,YS-3*J),PSET,0
1190 NEXT
1200 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間 ";T;"秒"
1210 WAIT 70:CLS 4
1220 '
1230 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
1240 FOR I=1 TO 84
1250 LINE (SX+3*J,SY+3*J)-(XS-3*J,SY+3*J+I*4),PSET,(I-2)/3 MOD 7+1
1260 LINE (XS-3*J,YS-3*J)-(SX+3*J,YS-3*J-I*4),PSET,(I-2)/3 MOD 7+1
1270 S=S+1
1280 NEXT
1290 T2=TIME:T=T2-T1:S=2*S
1300 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒 ";"描いた直線--";S;"本"
1310 WAIT 100:CLS 4
1320 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
1330 FOR I=1 TO 84
1340 LINE (SX+3*J,SY+3*J)-(XS-3*J,SY+3*J+I*4),PSET,0
1350 LINE (XS-3*J,YS-3*J)-(SX+3*J,YS-3*J-I*4),PSET,0
1360 NEXT
1370 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間 ";T;"秒"
1380 WAIT 70:CLS 4
1390 '
1400 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
1410 FOR I=1 TO 67
1420 LINE (XSX,YS-3*J+1)-(SX+3*J,YS-3*J-I*5+1),PSET,(I-2)/3 MOD 7+1
1430 S=S+1
1440 NEXT
1450 FOR I=1 TO 124
1460 LINE (XSX,YS-3*J+1)-(SX+3*J+I*4, SY+3*J),PSET,(I-2)/3 MOD 7+1
1470 S=S+1
1480 NEXT
1490 FOR I=1 TO 67
1500 LINE (XSX,YS-3*J+2)-(XS-3*J, SY+3*J+5*I),PSET,(I-2)/3 MOD 7+1
1510 S=S+1
1520 NEXT
1530 T2=TIME:T=T2-T1
1540 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒 ";"描いた直線--";S;"本"
1550 WAIT 100:CLS 4
1560 '
1570 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
1580 FOR I=1 TO 67
1590 LINE (XSX,YS-3*J+1)-(SX+3*J,YS-3*J-I*5+1),PSET,0
1600 NEXT
1610 FOR I=1 TO 124
1620 LINE (XSX,YS-3*J+1)-(SX+3*J+I*4, SY+3*J),PSET,0
1630 NEXT
1640 FOR I=1 TO 67
1650 LINE (XSX,YS-3*J+2)-(XS-3*J, SY+3*J+5*I),PSET,0
1660 NEXT
1670 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間 ";T;"秒"
1680 WAIT 70:CLS 4
1690 '
1700 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME:S=0
1710 FOR I=1 TO 67
1720 LINE (XSX,SY+3*J+1)-(SX+3*J, SY+2*J+I*5),PSET,(I-2)/3 MOD 7+1
1730 S=S+1
1740 NEXT
1750 FOR I=1 TO 124
1760 LINE (XSX,SY+3*J+1)-(SX+3*J+I*4,YS-3*J+1),PSET,(I-2)/3 MOD 7+1
1770 S=S+1
1780 NEXT
1790 FOR I=1 TO 67
1800 LINE (XSX,SY+3*J+1)-(XS-3*J, YS-3*J-5*I),PSET,(I-2)/3 MOD 7+1
1810 S=S+1
1820 NEXT I
1830 T2=TIME:T=T2-T1
1840 LOCATE 3,1:PRINT"書くのに要した時間--";T;"秒 ";"描いた直線--";S;"本"
1850 WAIT 100:CLS 4
1860 A=LEN(A$):B=(80-A)\2:LOCATE 0,23:PRINT SPACE$(B)+A$:T1=TIME
1870 FOR I=1 TO 67
1880 LINE (XSX,SY+3*J+1)-(SX+3*J, SY+2*J+I*5),PSET,0
1890 NEXT
1900 FOR I=1 TO 124
1910 LINE (XSX,SY+3*J+1)-(SX+3*J+I*4,YS-3*J+1),PSET,0
1920 NEXT
1930 FOR I=1 TO 67
1940 LINE (XSX,SY+3*J+1)-(XS-3*J, YS-3*J-5*I),PSET,0
1950 NEXT I
1960 T2=TIME:T=T2-T1:LOCATE 3,1:PRINT "消し終わるまでの時間 ";T;"秒"
1970 WAIT 70:CLS 4
1980 GOTO 2090
1990 '
2000 *WAKU
2010 C(0)=7:C(1)=7:C(2)=1:C(3)=5:C(4)=5
2020 FOR I=0 TO J
2030 LINE (SX,SY)-(XS,YS),PSET,C(I),B
2040 SX=SX+2:SY=SY+2:XS=XS-2:YS=YS-2
2050 NEXT
2060 LINE (SX+2*J,SY+2*J)-(XS-2*J,YS-2*J),PSET,5,B
2070 I=1
2080 RETURN
2090 '